home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 72 / IOPROG_72.ISO / soft / Codice / CRobots / Codice Robot anni precedenti / CR2-SRC.ZIP / TRIO.R < prev    next >
Encoding:
Text File  |  1992-09-30  |  1.3 KB  |  39 lines
  1. /* Realizzato da :   Brunetti Andrea, Via Franco Sacchetti 45 Roma 00137 */
  2. /*                   Tel.: 8273050    */
  3.  
  4. int    as;              /* dichiarazione della variabile 'as' usata nella */
  5. /* procedura 'spara'                              */
  6. main()
  7. {
  8.     loc_x();
  9.     loc_y();
  10.     while (loc_x() >= 205) /* coordinata per il movimento nello schermo      */ {
  11.         spara();           /* richiamo della procedura di fuoco              */
  12.         drive(180, 100);    /* movimento del robot con angolo di 180 a velo-  */
  13.         /* cità massima (100)                             */
  14.     }
  15.     while (loc_y() >= 150) {
  16.         spara();
  17.         drive(270, 100);
  18.     }
  19.     while ((loc_x() <= 825) && (loc_y() <= 835)) {
  20.         spara();
  21.         drive(45, 100);
  22.     }
  23. }
  24.  
  25.  
  26. spara()                  /* inizio procedura di fuoco                  */
  27. {
  28.     int    result;             /* dichiarazione variabile interna 'result'   */
  29.     if (result = scan(as, 10)) /* 'result' aquisisce il risultato del valore */ {/* della 'scan' formata da angolo & variazione*/
  30.  
  31.         cannon(as, result);     /* fuoco!                                     */
  32.         as -= 35;                /* variazione angolo di fuoco di -35 gradi    */
  33.     } else
  34.         as += 20;                /* seconda variazione dell'angolo di fuoco di */
  35.     /* +20 gradi                                  */
  36. }
  37.  
  38.  
  39.